home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d9xx
/
d930
/
megad_docs.lha
/
MegaD_Docs
/
Unpack->Floppy
< prev
next >
Wrap
Text File
|
1993-10-07
|
1KB
|
63 lines
.Key ""
set src1 "MegaD_Docs.lha"
set dst "MegaD_Docs"
echo ""
echo " This script will unpack the following lha archives:"
echo ""
echo " $src1 => $dst"
echo ""
lab GETDRIVE
echo " Which drive do you want to unpack to? [0,1,2,3] " NOLINE
failat 20
skip >NIL: ?
lab 0
set drive "DF0:"
skip HAVEDRIVE
;
lab 1
set drive "DF1:"
skip HAVEDRIVE
;
lab 2
set drive "DF2:"
skip HAVEDRIVE
;
lab 3
set drive "DF3:"
skip HAVEDRIVE
;
lab HAVEDRIVE
ask " Do you have a blank unformatted disk in drive $drive?"
if not WARN
echo ""
echo " Try again when you do ..."
echo " All Done. Click close gadget to get rid of window."
endcli
endif
echo ""
echo " ==> sys:system/format drive $drive name $dst FFS NOICONS"
echo ""
sys:system/format drive $drive name $dst FFS NOICONS
echo ""
echo " ==> :c/lha -axm x $src1 $dst:"
echo ""
:c/lha -axm x $src1 $dst:
echo ""
echo " All Done. Click close gadget to get rid of window."
endcli
endskip
echo " Invalid Drive Selection, Please try again!"
skip back GETDRIVE